home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 September / macformat-028.iso / mac / Shareware City / Developers / FANTASM V3.01 / F3_EXAMPLE / VOICE.S < prev   
Encoding:
Text File  |  1995-02-10  |  736 b   |  37 lines  |  [TEXT/R*ch]
  1. load_voices:    lea    voice_ids(pc),a4
  2. lv_loop:        move.w    (a4)+,d0
  3.                 beq.s    lv_end
  4.                 bsr        load_sound
  5. lv_end:            rts
  6.  
  7. ************************
  8. LOAD_SOUND:        **GET SOUND RESOURCE
  9.     CLR.L    -(SP)    SPACE FOR HANDLE
  10.     MOVE.L    #"snd ",-(SP)
  11.     MOVE.W    D0,-(SP)    *GET SOUND - RESOURCE NUMBER IN D0
  12.     DC.W    GET1RESOURCE
  13.     MOVE.L    (SP)+,D0    GET HANDLE
  14.     RTS
  15. **needs handle in sound(a5)
  16. RUN_SOUND:    
  17.     CLR.W    -(SP)
  18.     PEA        CHAN(A5)
  19.     CLR.W    -(SP)
  20.     CLR.L    -(SP)
  21.     CLR.L    -(SP)    CALL BACK PTR
  22.     DC.W    $A807    SNDNEWCHANNEL
  23.     MOVE.W    (SP)+,D0
  24.  
  25.     CLR.W    -(SP)
  26.     MOVE.L    CHAN(A5),-(SP)
  27.     MOVE.L    SOUND(A5),-(SP)
  28.     MOVE.B    #-1,-(SP)
  29.     DC.W    $A805
  30.     MOVE.W    (SP)+,D0
  31.     RTS
  32. ********************************
  33. VOICE_IDS:    DC.W    20000,20001,20002,20004
  34.             DC.W    30000
  35.             DC.W    0
  36.             GLOBAL    LOAD_VOICES,RUN_SOUND
  37.